home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / st_trans / patch.s < prev    next >
Encoding:
Text File  |  1995-08-07  |  1.3 KB  |  82 lines
  1. start
  2.  
  3.     pea    exec
  4.     move    #$26,-(sp)
  5.     trap    #14
  6.     addq.l    #6,sp
  7.  
  8.     dc.w    $a00a    
  9.     pea    text1(pc)
  10.     move    #9,-(sp)
  11.     trap    #1
  12.     addq.l    #6,sp
  13.     bra    loop1
  14. loop
  15.     pea        left(pc)
  16.     move    #9,-(sp)
  17.     trap    #1
  18.     addq.l    #6,sp
  19. loop1
  20.     move    #1,-(sp)
  21.     trap    #1
  22.     addq.l    #2,sp
  23.     sub        #"0",d0
  24.     ble.s    loop
  25.     cmp        #6,d0
  26.     bgt.s    loop    
  27.  
  28.     lea        table(pc),a0
  29.     move    (a0,d0*2),value        
  30.  
  31.     pea        disa(pc)
  32.     move    #9,-(sp)
  33.     trap    #1
  34.     addq.l    #6,sp
  35.  
  36.     dc.w    $a009
  37.  
  38.     move.l    #(end-start)+1000,-(sp)
  39.     move    #$31,-(sp)
  40.     trap    #1
  41.  
  42.  
  43. exec
  44.     sf    first_time
  45.     move.l    #trap6,$80+6*4
  46.     rts
  47.  
  48. trap6
  49.     pea    (a0)
  50.     tst.b    first_time
  51.     bne.s    no_thing
  52.     move.l    2+4(sp),a0
  53.     move.l    8(a0),a0
  54.     move.w    value(pc),(a0)
  55.     st    first_time
  56. no_thing
  57.     ori    #8,d0
  58.     move.l    (sp)+,a0
  59.     rte
  60. value            dc.w    0
  61. first_time        dc.w    0
  62. left    dc.b    27,'D',0
  63. disa    dc.b    27,'f',0
  64. null    dc.b    0,0
  65. file    dc.b    '\faltrans.prg',0
  66.     even
  67.  
  68.  
  69. table    dc.w    0,13,12,15,11,14,10
  70. text1    dc.b    27,"E",27,"p",'   -->> FALTRANS PATCHED by ZIGo AnD NEw-FaCE /EXA ',27,"q",13,10
  71.         dc.b    'Aie 2 Hall Eko MEMBERS  .... ',13,10 
  72.         dc.b    13,10
  73. text3    dc.b    '1:  38 400 ',13,10
  74. text4    dc.b    '2:  57 600 ',13,10      
  75. text5    dc.b    '3:  76 800 ',13,10      
  76. text6    dc.b    '4: 115 200 ',13,10      
  77. text7    dc.b    '5: 153 600 ',13,10      
  78.         dc.b    '6: 232 400 ',13,10,13,10      
  79.         dc.b    'Select a speed rate :  ',27,'e',0
  80.     even
  81. end    
  82.